<!--#include virtual="funz_inviomail.inc"-->

<%
'------definizioni veriabili-----------
PRS_SMTPESTERNO="mail3.sianet.biz"
EMAIL_MITTENTE="webform@arbel.it"
EMAIL_DESTINATARIO="stefano.peron@sianet.biz"
EMAIL_OGGETTO="Webform - Nuova registrazione arbel.it"
EMAIL_INTESTAZIONE="INTESTAZIONE DELLA MAIL"
MESSAGGIO_FINALE="GRAZIE PER LA REGISTRAZIONE"
INOLTRO_UTENTE="true"
EMAIL_INTESTAZIONE_UTENTE="INTESTAZIONE DELLA MAIL PER L'UTENTE"

CONN= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=iscrizioni.mdb"
LINGUA_PAG="ITA"

'--------------------------------------
%>


grafica html di inizio pagina






<%
'------------------------------procedura di invio mail e output messaggio di risposta----------------
'on error resume next
dim i,cnt,str_email,str_err,email_utente
dim arrform()
Redim arrform(Request.Form.count)

email_utente=""

cnt=0
for each i in Request.Form
	'response.write right(i,len(i)-(len(i)-2))&"<br>"

	if IsNumeric(right(i,len(i)-(len(i)-2))) and instr(right(i,3),"_") and left(i,3)="FM_" then
		arrform(right(i,len(i)-(len(i)-2))-1)=i
		cnt=cnt+1
	else
		'str_err=str_err&"Campo "&i&" con nome non conforme.<br>"
		' nel caso di campi malformati li ignora
	end if
	
next

str_sqln="data, ora, lingua_pag"
str_sqlv="'"&date &"','"&time&"','"&lingua_pag&"'"

if str_err<>"" then
	response.write str_err
else
	for i=0 to cnt
		nomecampo=mid(arrform(i),4,len(arrform(i))-6)
		valcampo=request.form(arrform(i))

		if arrform(i)<>"" then
			str_email=str_email&"<b>"&nomecampo&":</b>&nbsp;"&valcampo&"<br>"
			str_sqln=str_sqln &", "& nomecampo &"='"&replace(,"'","''") & "'"
			str_sqlv=str_sqlv &", "&"'"&replace(valcampo,"'","''") & "'"
		end if
		
		if nomecampo="email" then
			email_utente=valcampo
		end if
		
	next
	
	'response.write str_email
	'--------invia mail--------------------
	call inviaMail(EMAIL_DESTINATARIO, EMAIL_MITTENTE, EMAIL_OGGETTO, EMAIL_INTESTAZIONE&"<br>"&str_email, "")
	
	if email_utente<>"" and INOLTRO_UTENTE="true" then
		call inviaMail(email_utente, EMAIL_MITTENTE, EMAIL_OGGETTO, EMAIL_INTESTAZIONE_UTENTE&"<br>"&str_email, "")
	end if
	'-------fine invia mail------------------
	'----------registra su DB-------------
		
	str_sql="insert into iscrizioni ("&str_sqln&") values ("&str_sqlv&")"
	
	set connessione = Server.CreateObject("ADODB.Connection")
	connessione.open(strConn)
	connessione.execute(str_sql)
	connessione.close
	set connessione=nothing
	
	
	
	
	
	
	
	'--------fine registra su DB------------
	response.write "<p>"&MESSAGGIO_FINALE&"</p><br>"
end if

%>

grafica html di fine pagina



